My Quarto Document

Running Code

library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

library(tidyr)
library(tidyverse)

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ forcats   1.0.0     ✔ readr     2.1.5
✔ ggplot2   3.5.1     ✔ stringr   1.5.1
✔ lubridate 1.9.3     ✔ tibble    3.2.1
✔ purrr     1.0.2     

── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(ggplot2)
library(plotly)

Attaching package: 'plotly'

The following object is masked from 'package:ggplot2':

    last_plot

The following object is masked from 'package:stats':

    filter

The following object is masked from 'package:graphics':

    layout

library(htmlwidgets)
library(webshot2)
library(tinytex)
library(webshot)

Registered S3 method overwritten by 'webshot':
  method        from    
  print.webshot webshot2

Attaching package: 'webshot'

The following objects are masked from 'package:webshot2':

    appshot, resize, rmdshot, shrink, webshot

data = read.csv("/Users/orszagl2/Documents/siteRecruitAggMetrics/data-cleaning/joined_data3.csv")
source('by_sex_scatter.R')
source('by_insurance_scatter.R')
source('by_ruca_scatter.R')
source('by_race_scatter.R')
source('by_ses_scatter.R')
source('sex_plots.R')
source('ins_plots.R')
source('race_plots.R')
source('ruca_plots.R')
source('ses_plots.R')
source('color_palette.R')
source('save_plot.R')

data$site <- gsub("^Marshfield.*", "Marshfield", data$site)
items_list = c("KP-Hawaii", "KP-Colorado", "KP-Northwest", "KP-Georgia", "Marshfield", "Sanford Health", "Henry Ford", "University of Chicago")
data = data %>%filter(!(month == 4 & site == "University of Chicago"))

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.

`summarise()` has grouped output by 'race_ethnicity'. You can override using
the `.groups` argument.